El Mac 7/El Mac 7.iso/Infotenimiento/Makers of the 20th Century/Data/RANDOM.DIR/00053.ls

Text File | 1996-03-11 | 2.8 KB | 111 lines

on startMovie
  global Choose, flag, MoveOrange, ChangePict
  set Choose to 0
  set flag to 1
  set MoveOrange to 1
  set ChangePict to 1
  put " " into field "namesText"
  put EMPTY into field "numfield"
  preLoadCast(14, 36)
  preLoadCast(56, 83)
end

on changeCasts
  global flag, MoveOrange, ChangePict
  set the castNum of sprite 11 to random(7) + 6
  if the castNum of sprite 14 < 67 then
    set the castNum of sprite 14 to the number of cast the castNum of sprite 14 + 1
  else
    set the castNum of sprite 14 to 56
  end if
  if the castNum of sprite 15 < 67 then
    set the castNum of sprite 15 to the number of cast the castNum of sprite 15 + 1
  else
    set the castNum of sprite 15 to 56
  end if
  if flag = 1 then
    if the castNum of sprite 12 < 36 then
      set the castNum of sprite 12 to the number of cast the castNum of sprite 12 + 1
    else
      set flag to 0
    end if
  else
    if the castNum of sprite 12 > 14 then
      set the castNum of sprite 12 to the number of cast the castNum of sprite 12 - 1
    else
      set flag to 1
    end if
  end if
  set the castNum of sprite 13 to the number of cast the castNum of sprite 12
  if MoveOrange = 1 then
    if the castNum of sprite 2 < 83 then
      set the castNum of sprite 2 to the castNum of sprite 2 + 1
    else
      set the castNum of sprite 2 to 68
    end if
    set MoveOrange to 0
  else
    set MoveOrange to 1
  end if
  if ChangePict = 30 then
    set the castNum of sprite 3 to random(183) + 84
    set ChangePict to 0
  else
    set ChangePict to ChangePict + 1
  end if
  updateStage()
end

on rollOvers
  if rollOver(7) then
    roll(7)
  else
    unRoll(7)
  end if
  if rollOver(9) then
    roll(9)
    unRoll(7)
  else
    unRoll(9)
  end if
  if rollOver(10) then
    roll(10)
  else
    unRoll(10)
  end if
  updateStage()
end

on roll theRoll
  if not (the name of cast the castNum of sprite theRoll contains "down") then
    set the castNum of sprite theRoll to the castNum of sprite theRoll + 1
  end if
end

on unRoll theRoll
  if the name of cast the castNum of sprite theRoll contains "down" then
    set the castNum of sprite theRoll to the castNum of sprite theRoll - 1
  end if
end

on GoDatabase num
  global gMakerNum, ItemDel
  set temp to "body,power,discover,senses,mind,design"
  set name to word the number of words in the name of cast num of the name of cast num
  set num to Bsearch(name, "numList")
  set num2 to item 2 of line num of field "numList"
  set file to value(item 3 of line num of field "numList")
  set gMakerNum to num2
  put string("MAKERS" & ItemDel & "DATABASE" & ItemDel & string(item file of temp & ".dir"))
  go("database", string("MAKERS" & ItemDel & "DATABASE" & ItemDel & string(item file of temp & ".dir")))
end

on disposeRearWindow
  global rwObj
  if the machineType <> 256 then
    if objectp(rwObj) then
      rwObj(mdispose)
    end if
  end if
end